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+-Block 100-———— 

( CROSS COMPILE TACK GAME ON SYSTEM END 
HEX 0B350 DP ! DECIMAL 
101 B: LOAD 
XCEND XCSTAT 
xcsms xc DECIMAL jS 


) DECIMAL 


DECIMAL 
HEX 300 
CR PAGE 


305 300 
200 100 
CR PAGE 


< < 

0 4 0 
CR ;S 


<< DECIMAL J HEXLIST >> >> 


TABLE ) 


5A 

B t 


Bj 


H-B1 ock 101- 

( MASTER CONTROL PROGRAM ) 

HEX ( MISSION START ADDRESSES 
12 C= BASESET 13 C= SOUNDSET 

TABLE MSATBL 8000 , SC00 , 09950 , 09FB0 , 0A790 , 

DATA MCCOLORS 0 B, 7D B, OB B , 5A B, 0 B, 7D B, OB B/ 

DATA BRCOLORS 7 B t 7D B , 0B B , 5A B, 0 E, 0 B, 0 B, 0 
: COCKER COCKTAIL WPEZERO PLAYERUP E@ IF LANGSET INP' 

IF COCKTAIL WPBQNE THEN THEN SETLINKS J 
: GOFRAME DI 0 FLOOD COCKER INITMISSIONRAM DRAWNISSIONSCREEN 
0 STARZ OUTF DI } : GOC MCCOLORS COLOR i 

: CLRLITES 27 20 DO 0 I OUTP LOOP ; 

: LITEMISSION CLRLITES 1 MISSION B€> IF -J- OUTP SKILLFACTOR B0 
IF 1 25 OUTP THEN | : TRY IT MISSION B@ 1- MSATBL © DUF B@ 

AS = IF + @ COCKER DOIT ELSE 2DR0P THEN j 

: DOFRAME 0 FLOOD LITEMISSION 1 TRY IT 0 2G OUTP f DECIMAL — 




AND 


102 - 


-B1ock 

< STACK CRASHER ) 

HEX SUBR s-tackcrash 

CC? IFTRUE 0E740 SP LX I, 0E7A4 X LXIX, 0A2 Y 
OTHERWISE PSTACK @ SP LX I } RSTACK @ X LXIX, , 
I FEND B I NX, PC IY, 


LX IX/ 
nex-tr. 


Y LXIX, 


CODE CRASHTO 
DECIMAL —> 


B POP.. stackcrash UMP } 










+-Block 103- 

0!< DISPLAY PLAYER UP ) 

1!: DISPU GOFRAME DI 
21240 XUP 2 SPELL 

31200 XUP PLAYERUP B® IF 3 ELSE 4 THEN SPELL J 
4[DECIMAL —> 

5 I 

Si 

7! 

Si 
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H-B1 ock 

!< BUMFMISS10N 
HEX 

: BUMPMISS GAMEOVER @ 0= IF 
MISSIONCTR BCDBUMP MISSION 1- 
MISSION B@ 6 
BASESET INF>-4n TFBCTR 


104- 

NUMEER 


AND COUNTER ) 


P2FECTR 

SKILLFACtGR if 
MISSION WPBONE 
DECIMAL —> 



NoT 


IF 

P1FBCTR 
THEN 


1+WPB! THEN 


THEN THEN 


+-Block 105- 

( GAME OVER AND YOUR UP DISPLAYS ) 

: GAMEO GAMEOVER @ EMUSIC E2MUSIC 
GOFRAME DISPU GOC 50 DO 160 XUP 
5 SPELL 120 XUF 6 SPELL El 30 
WAIT DI LOOP GAMEOVER ! ; 

: YOURUP EMUSIC E2MUSIC GOFRAME DISPU 
GOC 5 © DO 160 XUP 7 SPELL 
120 XUP & SPELL El 70 WAIT 
DI LOOP l DECIMAL —> 


10 ! 


11 J 

12 1 
13 | 
1 4 I 
15 [ 
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■i -B1 ock 106- 

( GETEASES FREEPLAY REIN I TALL AND GUITGAME ) 

HEX I- 

I: GETEASES BASESET INF 20 AND IFJ| ELSE j) THEN } 
: FREEPLAY BUTTS INF 80 AND 0= ; 


: RE INIT ALL STAP.TGAME DENOMODE WPBZERO 1 MUSICFLAG B! 
MISSION WPBONE GAMEOVER ZERO RIP WPBZERO j 

: GUITGAME DEMOMODE WPBONE © DOIT } 

DECIMAL —> 


-Block 107- 

< COIN ROUTINE MESSAGES ) 

HEX : I AC 3 SPELL ; : S1PG 0A SPELL } : SOR 0B SPELL } 

S12PG 0C SPELL i : F2PG 0D SPELL ; :* OFES 0E SPELL j 

WES 0F SPELL ; 

L0 3C00 ; : LI 3200 ; : L2 2800 j : L3 1E00 J : L4 1400 

CRED0 L2 I AC } 

CRED1 L0 SIPG LI SOR L2 I AC L3 F2PG L4 OFES ; 

CRED23 L0 S12FG L I SOR L2 I AC L3 F2PG L4 WES J 
CRED4 L2 S12PG ; 

DISPCOIN COINS? WPBZERO GOFRAME FREEPLAY IF 4 ELSE 
CO I NS IN E@ DUP 4 > IF DROP 4 THEN THEN £)UP 

< FORK CRED0 CRED1 CRED23 CRED23 CRED4 FORK> GOC J 

DECIMAL —> ' 


H---Block 1©8- 

C HI SCORE COMPARE SUBROUTINES ) 

F= BCDL F = SMLR F= BIGR F= TAF 

CODE COMPS <ASSEMBLE EXX, D POP , H POP, 3 B MV I , 
H I NX, H I NX, D I NX, D INX, 

LABEL BCDL D LDAX 9 M CMP, BIGR URC, SMLR URNZ, 

N DCX, D DCX , BCDL DJN2, 

LABEL SMLR 0 H LX I, TAF UMPR, 

LABEL BIGR 1 H LX I, 

LABEL TAF H PUSH, EXX, NEXT ASSEMBLE> 


D l 

LOOP,'EXXj 
DECIMAL — 


NEX1 


I NX, 











m u w 


—-Block 103- 

C COMFARE CURRENT SCORE TO HI SCORE ) 

: SCANLIST 5 0 DO 
2DUP I 3 * + C0MP3 
IF I 4 <> IF 

I 3 DO DUP I 3 5K + DUP 3 + WP3! -1 +LOOP 

THEN 2DUP I 3 * + WP3 ! LEAVE THEN LOOP DROP DROP } 

: CHECKHIGH INITFB 5® 3 > IF 0 HISCR4 ELSE 0 HISCR2 
SCANLIST } 

DECIMAL —> 


THEN 


-Block 11©- 

( ONE PLAYER GAME GOODIES ) 

: PLAY1 BEGIN DOFRAME BUMPMISS GAMEOVER © 

END 0 PI SCR CHECKHIGH QUITGAME } 

: TRY1 CO I NSIN B@ FREEPLAY OR IF RE INI TALL GETBASES 
FREEPLAY NOT IF 

DI COI NS IN B* 1 > IF 2* 2 ELSE 1 THEN COINSIN -WPE! 

DUP P1FBCTR WPB! INITFB NPB! 

' PLAY1 CRASHTO THEN ; 

DECIMAL —> 


THEN 


-B1ock 111- 

< TWO PLAYER GAME GOODIES ) 

: PLAYLAST BEGIN DOFRAME BUMPMISS GAMEOVER @ 

END © PI SCR CHECKHIGH © P2SCR CHECKHIGH QUITGAME ; 

: PLAY2 BEGIN YOUPJJP RIP IF ' PLAYLAST CRASHTO THEN 
DOFRAME GAMEOVER © IF GAMEO RIP WPEONE GAMEOVER ZERO THEN 
PLAYERUP B® 1+ 1 AND DUP PLAYERUP WPE! ©= IF BUMPMISS THEN 
© END s 


: TRY2 COINSIN ?! 
FREEPLAY MOT IF 
DI COINSIN B© 3 
DUP P1PECTR WPB! 
NPLAYERS WPBONE 
' PLAY2 CRASHTO ' 
DECIMAL —> 


;f reinitals. 


:F 2-3= 4 ELSE 2 THEN COINSIN -WPB! THEN 
JP P2FECTR WPB! INITFB WPB! 
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( MAKE A SNAP OF A 4X ENLARGED CHARACTER ) 

HEX F= LINL F= MIDL F= INL F= IN2 

CODE MAKESNAP <ASSEMBLE EXX, H POP, L A MOV, 20 SUI, 0< >, IF, 
0F SUI, 0B CPI, CY~, IF, 7 SUI, THEN, THEN, 

A L MOV, 0 H MV I, H DAD, H DAD, L E MOV, H D MOV, 

H DAD, D DAD, CHRTEL D LXI, D DAD, XCHG, 

H POP, 0D M MVr, H I NX, IS M MV I, H I NX, 6 C MVI, 

LABEL LINL 4 B MV I, 

LABEL MIDL B FUSH, D LDAX, S B MVI, 

IF, 0FF M MVI, ELSE, 0 M MVI, THEN, H INX, 
D 1 NX, D LDAX, 

IF, 0FF M MVI, ELSE, 0 M MVI, THEN, H INX, 


D INX, C DCR, LINL JRNZ, 


LABEL INL RAL, CY, 

INL DJN2, 5 3 MVI, 

LABEL IN2 RAL, CY, 

IN2 DJNZ, D DCX, 

B POP, MIDL DJNZ, D INX, 

EXX, NEXT ASSEMBLE> 

DECIMAL —> 

— --Block 113- 

( BOUNCE OUT CHARACTERS SPELLING GORF ) HEX 

FIREACT I ON VFTR ! 13A EA= GC 13A BA= OC 13A EA= RC 13A BA= FC 
[DATA GODOWN ASM 0 -100 SETDC -10 0 SETDDC 10 SWAIT ARET 
DATA GOUP ASM 11© -100 SETDC 10 SWAIT ARET 

DATA INB ASM XADDWRITE SETR NULRET SET I 3S00 SETXC B000 SETYC 

40 SETXZW ARET DATA END IT ASM GODOWN ACALL AHALT 

DATA GORFER ASM INB ACALL 5 AREPEAT GORF SETP GODOWN ACALL 

GORFB SETP GOUP ACALL ALOOP GORF SETP END IT AJMP 

DATA GAN ASM INB ACALL 0 GC SETP 4 AREPEAT GODOWN 

ACALL GOUP ACALL ALOOP ENDIT AJMP 

DATA OAN ASM INB ACALL 0 OC SETP 3 AREPEAT GODOWN 
ACALL GOUP ACALL ALOOP ENDIT AJMP 

DATA RAN ASM INB ACALL 0 RC SETP 2 AREPEAT GODOWN ACALL 
GOUP ACALL ALOOP ENDIT AJMP 

DATA FAN ASM INB ACALL 0 FC SETP GODOWN ACALL GOUP 
ACALL ENDIT AJMP DECIMAL —> 

-Elock 1 1 4 - 

( CHARACTER VECTORING GOODIES ) 

HEX BTABLE INSCOIN 49 B, 4E E, 53 B, 45 B, 52 B, 54 B, 20 B, 
43 B, 4F B, 49 B, 4E B, 

DATA ACHAR ASM CHARI SETR NULPAT SETP ©4 SETXP 
EF 40 SETS 28 SETM FOREVER 70 SWAIT EVERFOR 
DECIMAL —> 
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•j4- Block 115-———— 

01C MORE TITLE FRAME ) 

1iHEX 0 V= 60RFV 

j: SENDLET 26 WAIT 47 0A2 VST ART j 

! : TITLE GOFRAME BRCOLORS COLOR 8 STAR2 OUTP 2 WORCB OUTP 
10 GC 47 MAKESNAP 0 OC 4F MAKESNAP 0 RC 52 MAKESNAF 
! 0 FC 4G MAKESNAP 

!GETNODE GORFV ! GORFER 47 1B2 GORFV © XVSTART 
!GAN SENDLET OAK SENDLET RAN SENDLET FAN SENDLET 
!30 WAIT 

i0B 0 DO I INSCOIN E© @D GORFV © + © 13 GORFV © + © 

11800 I 700 * 3600 + ACHAR 2© A© VMOVE 10 WAIT LOOP 40 WAIT } 
1 DEC IMAL —> 


-8 27- Rollon/ 


H-B1 ock 11 6- 

! ( PRINT BRIEFING INFO ) HEX 

I: YC 700 * 0A00 + 0 SWAP i : ROLLON 0 428 ROT INXMSG CSPELL 

I SCROLL j : BRIEF TITLE 

II LOCKOUTCOUNTER B! 

1DI 8 10 ROLLON 
18 11 ROLLON 
10A 12 ROLLON 
18 13 ROLLON 

H 4 ROLLON _ _ i _ . | 

15 ROLLON --- m 7JL RQLL.ON 

G ROLLON ” ^ ' 

IS 17 ROLLON 
18 18 ROLLON 

18 19 ROLLON ^ P>ol l £ 

IS 1A ROLLON__ - ft RP*-4-<- 

i b rollo’pT-~> v 

+ZXf-Block 117- 

K BRIEFER CONTINUED ) 

18 1C ROLLON 
10A ID ROLLON 

18 BASESET INP 20 AND IF IE ELSE IF THEN ROLLON 

15 0 DO 0 4B0© 428 3 I * HISCR2 DISPBCD6 8 SCROLL LOOP 

14 SCROLL 

18 BASESET INP 2© AND IF 20 ELSE 21 THEN ROLLON 

f, 5 0 DO © 4B00 428 3 I * HISCR4 DISPBCDS 8 SCROLL LOOP 

198 SCROLL 0 LOCKOUT COUNTER B! 0 FLOOD 3 3TARZ OUT® f 
:DEC IMAL — > 


6 4 I” 

llrfgl 


g RpU-OtSf 


STARZ OUT® 


12 1 
13 1 
141 

15 1 
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+-B1 ock 

01C CHECK BUTTON ) 

1 ! HEX 

21: CHECKBUTT 10 INP 2® AND 0= IF TRY2 THEN 
3|10 INP 1@ AND 0= IF TRY 1 THEN J 
4-! DEC IMAL —> 

5! 

6 1 
7! 

8! 


3 ! 
10 1 

11 ! 
121 
131 
14 ! 
151 


+ 
01 
1 i 

21 

31 

4! 

5! 

61 

7 ! 

8 ! 
31 

10 1 
11 1 
12 1 
13 1 
14! 


—B1 ock 119- 

OVER SEQUENCE 


C GAME 
HEX 

: GOS DEMOMODE 
MUSICFLAG 
2 20 OUTP 2 21 
CHECKBUTT 
COINS? E@ CO I NSIN Et 
06000 0 DO CHECKBUTT 
BRIEF 

6 1 DO I MISSION WPS! 
GUITGAME ; 

DECIMAL —> 


BONE SOUND SET INP 40 AND IF 0 ELSE 

u;P 

SePLBY I V " 


THEN 


OR FREEPLAY OR 
CREDITS? LOOP 

3 TRY IT LOOP 


IF dTSHCuim sfF 
THEN 


15 1 

+-Block 120 

01 ( RESTART ROUTINE ) 

1 1 HEX 


2 j 

3 1 SUER GOTCOINORBUT ' GOS B LXI, s+ackcrash JMP, 
41 GOTCOINORBUT COINLINK U! 

5 l 

61: RESTART WPCLEAR P1FBCTR B@ P2FBCTR B@ OR IF 

7 1 DEMOMODE E@ 0= IF NPLAYERS B@ 

Sj IF PLAYS ELSE FLAY'. THEN THEN THEN GOS I 
9 jDEC IMAL ;S 
10 ! 

11 1 
1 2 J 


13 5 

14 1 

15 1 









+--—Block 140-■——————— 

0|( GETBASES F.REEPLAY REINITALL AND GUITGAME ) 

1 i HEX 

2|: GETBASES BASESET INP 2© AND IF 2 ELSE 3 THEN f 

3 ! 

41: FREEPLAY BUTTS INP S0 AND 0= i 

5 ! 

e 1 : REINITALL STARTGAME DEMOMODE WPE2ER0 1 MUSICFLAG B! 

7 SMI SSI ON WPBCNE GAflEOVER ZERO RIP WPBZERO ; 

a n : 

' 1 J 

3,": GUITGAME DEMOMODE WPEONE 0 DOIT ; 

1 ©!DEC IMAL — > 





